mouse.el comment

diff --git a/lisp/mouse.el b/lisp/mouse.el
index a1aa104495aa829e542e93d9d179e1c9dbe9ad75..bd7242e3b206ddde282ba992ea63278f03fc918f 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -865,6 +865,8 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
 
       ;; Find its binding.
       (let* ((fun (key-binding (vector (car event))))
+            ;; FIXME This doesn't make sense, because
+            ;; event-click-count always returns something >= 1.
             (do-multi-click (and (> (event-click-count event) 0)
                                  (functionp fun)
                                  (not (memq fun '(mouse-set-point